SET DELE OFF
DR='N:'
F1='PATIENT'
F11='NAME'
F12='FNAME'
f13='patcod'
f14='birdate'
USE

DO SIGNIT

IF NET_USE("&DR1&F1",.T.,'1',10)
   PACK
   DO SIGNI
   INDE ON PAT_FILCOD TO &DR1&F1
   DO SIGNI
   INDE ON PAT_NAME+PAT_F_NAME TO &DR1&F11
   DO SIGNI
   INDE ON PAT_F_NAME+PAT_NAME TO &DR1&F12
   DO SIGNI
   inde on pat_codcrp+pat_name to &DR1&f13
   DO SIGNI
   inde on pat_name+dtos(pat_dob) to &DR1&f14
ENDIF
SET EXCLU OFF
USE
F1='PAT_HL'
F11='HLCORP'
F12='CRPNAM'
f13='pathlnm'
F14='HLDATE'
USE
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON PAT_CODCRP+PAT_FILCOD TO &DR1&F1
   DO SIGNI
   inde on pat_codcrp to &DR1&f11
   DO SIGNI
   inde on pat_codcrp+pat_name to &DR1&f12
   DO SIGNI
   inde on pat_name+pat_f_name to &DR1&f13
   DO SIGNI
   INDE ON DTOS(hl_END) TO &DR1&F14
ENDIF
SET EXCLU OFF
USE

F1='NATIONAL'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON COUNTRY TO &DR1&F1
ENDIF
SET EXCLU OFF
USE
F1='PATJAPAN'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON PAT_FILCOD TO &DR1&F1
ENDIF
SET EXCLU OFF
USE

return